home *** CD-ROM | disk | FTP | other *** search
- /Bdf {bind def} bind def
- /Clw {currentlinewidth} Bdf
- /Cp {closepath} Bdf
- /CPt {currentpoint} Bdf
- /Ct {curveto} Bdf
- /Gr {grestore} Bdf
- /Gs {gsave} Bdf
- /Lt {lineto} Bdf
- /Mt {moveto} Bdf
- /Np {newpath} Bdf
- /Rmt {rmoveto} Bdf
- /Rlt {rlineto} Bdf
- /Sk {stroke} Bdf
- /Slw {setlinewidth} Bdf
- /Sw {stringwidth pop} Bdf
- /Tx {show} Bdf
- /Get { exch def } Bdf
- /Pop4 { 4 {pop} repeat } Bdf
-
- /SWidth 0 def
- /Char 1 string def
- /ChToStr { /Ch Get Char 0 Ch put } Bdf
- /Chw { ChToStr Sw } Bdf
-
- /Line
- { /Align Get /Y1 Get /X1 Get /Y0 Get /X0 Get
- /Gap Clw 2 div def
- Align 1 eq { /X0 X0 Gap sub def /X1 X1 Gap sub def } if
- Align 2 eq { /Y0 Y0 Gap sub def /Y1 Y1 Gap sub def } if
- X0 Y0 Mt X1 Y1 Lt Sk
- } Bdf
-
- /Head
- { /Left Get /Ch Get /Y0 Get
- Left 0 ne { Char 0 Ch put Char Sw sub (k) Sw add } if
- Y0 Mt Char 0 Ch put Char Tx
- } Bdf
-
- /Flag
- { /Left Get /Ch Get /Y0 Get
- Left 0 ne { Char 0 116 put Char Sw sub (k) Sw add } if
- Y0 Mt Char 0 Ch put Char Tx
- } Bdf
-
- /ChAt { /Ch Get Mt Char 0 Ch put Char Tx } Bdf
-
- /RChAt
- { /Ch Get /EP Get
- Mt Char 0 Ch put
- { Char Tx
- CPt pop EP ge {exit} if
- } loop
- } Bdf
-
- /DChAt
- { /Ag Get /Nc Get /Ch Get Mt
- Char 0 Ch put
- Gs
- Ag rotate
- Nc { Char Tx } repeat
- Gr
- } Bdf
-
- /Clip
- { /Y1 Get /X1 Get /Y0 Get /X0 Get
- Np X0 Y0 Mt X1 Y0 Lt X1 Y1 Lt X0 Y1 Lt Cp clip Np } Bdf
-
- /DoFont { exch findfont exch scalefont setfont } Bdf
- /Dash { setdash 0 Line [] 0 setdash } Bdf
-
- /Stem
- { /Y1 Get /Y0 Get /X0 Get
- /SP ( ) Sw 1 sub def
- /Y1 Y1 SP add def
- { Y0 Y1 gt
- { X0 Y0 Mt (m) show /Y0 Y0 SP sub def }{exit} ifelse
- } loop
- X0 Y1 Mt (m) Tx
- } Bdf
-
- /Staff
- { /Ch Get /X1 Get /Y0 Get /X0 Get
- Char 0 Ch put
- /CW Char Sw def
- /X1 X1 CW sub def
- X0 Y0 Mt
- { X1 currentpoint pop gt
- { Char show -.5 0 Rmt }{exit} ifelse
- } loop
- X1 Y0 Mt Char show
- } Bdf
-
- /Beam
- { /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
- Gs
- Sh -100000 Eh 100000 Clip
- Bh Slw 2 setlinecap
- /Bh Bh 2 div def
- /Sv Sv Bh sub def
- /Ev Ev Bh sub def
- Ps Sv Mt Pe Ev Lt Sk
- Gr
- } Bdf
-
- /Brace
- { /Y1 Get /X1 Get /Y0 Get /X0 Get
- /BH X1 X0 sub 8 div def
- /BV Y0 Y1 sub 96 div def
- Gs
- BH BV scale
- X0 BH div Y0 24 BV mul sub BV div Mt (>) Tx
- X0 BH div Y0 72 BV mul sub BV div Mt (?) Tx Gr
- } Bdf
-
- /Rect
- { /Y1 Get /X1 Get /Y0 Get /X0 Get
- Np
- X0 Y0 Mt
- X0 Y1 Lt
- X1 Y1 Lt
- X1 Y0 Lt
- Cp stroke
- } Bdf
-
- /ORect
- { /Y1 Get /X1 Get /Y0 Get /X0 Get
- Gs Np
- /W X1 X0 sub def /H Y1 Y0 sub def
- X0 W 2 div add Y0 H 2 div add translate
- 1 H W div scale
- 0 0 W 2 div 0 360 arc Sk Gr
- } Bdf
-
- /RRect
- { /RD Get /Y1 Get /X1 Get /Y0 Get /X0 Get
- Np
- X0 X1 X0 sub 2 div add Y0 Mt
- X0 Y0 X0 Y1 RD arcto Pop4
- X0 Y1 X1 Y1 RD arcto Pop4
- X1 Y1 X1 Y0 RD arcto Pop4
- X1 Y0 X0 Y0 RD arcto Pop4
- Cp Sk } Bdf
-
- /Curve
- { /Dh Get /SP Get
- /Y3 Get /X3 Get /Y2 Get /X2 Get
- /Y1 Get /X1 Get /Y0 Get /X0 Get
- Gs Np
- Dh 0 setdash SP Slw
- X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct Sk
- Gr
- } Bdf
-
- /Slur
- { /Dh Get /SP Get
- /Y3 Get /X3 Get /Y2 Get /X2 Get
- /Y1 Get /X1 Get /Y0 Get /X0 Get
- Gs Np
- Dh 0 setdash
- .25 Slw
- { SP 0 ge
- { X0 Y0 Mt X1 Y1 SP add X2 Y2 SP add X3 Y3 Ct Sk
- /SP SP .25 sub def }{exit} ifelse
- } loop
- Gr
- } Bdf
-
- /FArc
- {
- /SA Get /EA Get /RH Get /RW Get
- /Y0 Get /X0 Get
- Np
- /cmtx matrix currentmatrix def
- X0 Y0 translate
- RW RH scale
- 0 0 1 EA SA arc
- cmtx setmatrix stroke
- } Bdf
-
- /Arrow
- {
- /AG Get /AY Get /Y0 Get /X0 Get
- /AY AY 2 div def
- /AX AY 2.5 mul def
- Gs
- Np
- X0 Y0 Mt
- AG rotate
- AX neg AY Rlt
- 0 AY -2 mul Rlt
- AX AY Rlt
- Cp
- fill
- Gr
- } Bdf
-
- /GetFont
- { exch dup FontDirectory exch known {pop pop}{buildfont} ifelse } def
- /buildfont { dup 256 string cvs (|______) anchorsearch pop pop
- cvn findfont
- dup length dict /newfont exch def
- { 1 index /FID ne
- {newfont 3 1 roll put}
- {pop pop} ifelse
- } forall
- exch
- {newfont begin
- /Encoding Encoding 256 array copy def
- 0 MacVectors
- { dup type /nametype eq
- { Encoding 2 index 2 index put pop
- 1 add }
- { exch pop } ifelse
- } forall
- pop
- end} if
- newfont definefont pop
- } Bdf
-
- /MacVectors [ 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
- /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
- /egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
- /oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
- /udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
- /registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
- /.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
- /.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
- /questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
- /guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
- /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
- /.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
- /fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
- /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
- /Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
- /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
- /hungarumlaut/ogonek/caron ] def
-
-
- %%IncludeFont: Aloisen
- /MusicFont /Aloisen findfont 24 scalefont def
- /MF { MusicFont setfont } Bdf
- /MFG { /Aloisen findfont exch scalefont setfont } Bdf
-